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#188 ARCADIAN PROGRAMMING CONTEST As announced 
are starting a monthiy contest which will 
courtesy of AstreVisian. The basis of 


in the fast issue, we 
provide the winner with $188, 


the contest will be the judges’ 
decision as ta which is the best program in 


that particular issue. Rules 
are minimal. and there are practically no restrictions. We do want these 
Programs to be original with the author, so wa are asking that you so state 
with wour submission. There will be five judges, and in the beginning the 
follawing volunteers will preside: Craig Anderson, Dave Ibach, George 
Moses, Al Rathmeli, and Dick Strauss. One of these will drop cut each month 
oS 4 winner takes his place, and then the manthiy winner will replace the 
most senior judge. In this way, the team of judges will always be 


rotating, ond the winner will be out of circulation for a bit. 

A week prior to the date that the ARCADIAN is schedulad for the 
Printer, those pregrams to be included will be sent to the judges. That 
day also starts the next cycle of program input for the subsequent issue. 


Each judge will grade each program relative to the others on a i - 19 
basis. These scores wil! quickly be returned to me and tallied - highest 
score wins. The winner will be announced in that issue, and a check for 


$19@ sent with his/her copy. Each 


issve will therefore stand an its own, 
ho carryovers, no delays. 


When you submit a prograin that you would 
contest, please send along a statement 
Sst is the product of my own afforts 
program, signad-------- i 

Programs that are translations, etc., are still 
Arcadian, but would not ba eligible for the contest. ( 


like considered for the 
“I certify that the program titied 
and is not a copy of an available 


needed for the 


LATEST NEWS: ASTROVISION BASIC, to be provided frea with all new Arcade 
units Cbox will read ARCADE PLUS), was approved and sent to be manufactured 


on April 14. Should be 8-16 weeks for delivery. The data transfer rate 
has been increased to 2088 baud. The method cf transmission has been 
changed, which is why a standard tape recorder can stil! be used. We wil! 
be able to toad our old, 308 baud tapes into the new Basic. Then those 
programs can be dumped to tape via the new interface jack at 2808 baud. 

For the "“Hackers" out there who want to experiment, we'll have the 
disassembled listing with comments, for $7 ppd (CAstroVision BASIC 
listing}, and also a description of al! new commands with comparisons to 


Bally Basic (28 pages) for $2.50 ppd CAstroVision BASIC Guides. We'll bea 
covering the new commands and features in tutorials in the ARCADIAN, of 
course, 

Obviously, those who seriously wish to continue selling programs will 
have to provide them in both formats. This leads me to advising you that 
we will support al! versions of the languoges used in the Arcade, and we’ [| 
have to maka some changes in the ARCADIAN to be able to handle everything. 
At the moment, we'll be indicating which Basic a program is written in by 


the notations "BB" for Baliy Basic, "AB" for AstroVision Basic, and “XB” 
for Extended Basic. 





Oi) Rehet Fabris 
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MOTHERBOARD MODIFICATIONS The following changes are recommended if 
your machine has any of the listed symptoms. The author, Barry Ellerson, 
has sent us some “inside information", and can provide a small, built-up 
addition, ready for installation. Check his ad on p.86 . 

If your unit has these symptoms: Screen Tearing, Loss of Horizontal 
Sync. on warm-up, Unit goes Dead - or keeps Resetting after peel Se then 
the following modifications will correct eject ok oes unit poe 
completely dead following these symptoms, these medifications will probably 
repair it. 








NECESSARY MODIFICATIONS 
1. Replace 74LS74 (U-16, Clock) with 74S74. 


2. Replace Driver 75361 (U-32, 8-pin,clock) with Klud 


ge board assembly. 
NOTE: Be sure to 


heat pins enough to cause solder to flow around double 


sided foils, as there is no way to see if there is a good connection once 
the board is in place. Remove crystal - extend leads - cover w/spaghetti or 
heat shrink tubing - place suitable insulating material over board to 


prevent crystal from shorting points on top of the board 
back over top of Kludge board. 
75361 driver. If plated 
repair 


- Lay crystal flat 
CAUTION! Use extreme care when removing 
through holes are pulled aut during removal, 
by pushing thin wire through bottom of board, bend over, and solider 


to top foil. Then install and solder Kludge assembly. 
on bottom. 


i Remove resistor and capacitor (see diagram), and place jumper where 
capacitor was. (These units may not exist on your board, 
been done by the factory. ) 


4. Jump 27 ohm resistor R-1 (16u supply, lw) with a 47 ohm resistor, 174 
watt or larger. 

5. If you have a grey colored data chip Cunder the keypad), this old 
style unit which can cause further problems with the clock, DMSiLsas, 
and/’or memory should be replaced with a new verson (black color) and 
properly heat sunk, after cutting a hole in the top shield. 

6. Replace 82 ohm resistors in clack CR-12,13) with 47 ohm resistors. 


Cut of f excess wire 


or this may have 


OTHER MODIFICATIONS USEFUL BUT NOT ABSOLUTELY NECESSARY 
Put in jumper wire from cathode of CR-3 to "+" end of C-6. 
2. If C-19 (IYO) is glass, orange and black, replace. 

Check front edge of key pad and file of f any protruding leads. 


4. If line filter Cin metal box 1"x2") is high resistance type (no tape, 
or not toroid) replace with new style, low resistance. 
S. Put hot melt wax on base of key pad. 


6. Replace CR-3 to -6 with schottky 1N5817 or equivalent. 





The wiring schematic for the Kludge board follows. 


IC= TH Rie R680 mn Qe Qirindqo! gs 
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PRECAUTIONS 


1.Do not wear nylon clothes. Work in a static-free anvironment, 
preferably grounded. 







2.If the unit is operated outside of its case, short across C-6 before 





further handling. Inadvertent shorting to other points on board could blow 
* components. 






3.Check to be sure metal bushings in bottom shield pan-do not short 
across any foils. 


4.Check on-off switch for center lead that extends 
as it could short to the shield pan. 


5.Check Sy. heat sink for good mechanical contact and check clearance 
of spring clips and board foils. 
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Full size pe board of Kludge: 





=. 

4. 

5S . STRAIGHT LINES 

6&6 .JIM DUNSON 12/78 
7 
a 
B 


CLEAR ;T=@;NT=@4;N=@;FC=BC-1;BC=RND (32)b8;S=RND (28)+1@;R=RND (3);C=R 
M=X;GOSUB 4@;GOSUB S@;N=xX;GOSUB 4@;GOSUB 5Q@;T=T+1;IF T=SFOR D=1TO 189@;NEXT 
D;GOTO 18 

38 GOTO 24 

44 X=RND (14)-7; RETURN 

5@ A=Mb9;B=Nb6;IF R=2 C=RND (3) 
66 LINE A,B,C;RETURN 





rao 





a 
a s 







ARCADIAN 


ALTERNATIVE ENGINEERING regrets to announce a delay of the VIPER system. 
However we are glad ts announce that the delay is due to the addition of a 
keyboard interface to the VIPER System One and an additional feature to 
the 16 K RAM board. 

The RAM board will now allow you to load the new Extended Basic 8K tape 
into the RAM and use the other 8K in which to run programs. Once loaded, 
you can run either Extended Basic or Batliy Basic because they are 


compatible. You can even load Bally Basic Programs while running your 
Extended Basic and when you execute the old program it will run 4 - & times 
faster. 


The System One Interface Card will! now include the same VIPER keyboard 
input port as the System Five. The two systems will be software and 
hardware compatible. We wish to thank everyone for their continued 
interest in the VIPER System. Adding these features at this late stage was 
a hard decision to make but because wa want to give you the Extended Basic 
on tape and a port for a keyboard we think that this delay will be worth 
it. The revised price of the System One will be $225. onty $25 more than 


it was without the keyboard port, automemory write-protect circuit, or the 
Extended Basic tape. 5 zd a 





Alterneniae Engineering, P.O.Box 128, Gardiner, ME 94345 
(207) 622-5285 (207) S82 6327 


Editorial Notes- After 


a number of inquiries‘came in as a result of last 
month’s ad, 


the Alternative Engineering designers decided that there was 
enough demand for a “keyboard interface at the System Ona lave!l. In 
addition, they had to ensure that if the Extended Basic was loaded into 
half of the available memory, that thare was no chance of it’s being lost 
while a program was being set up or run in the other half. The System One 
card requires two additional chips to do this, and the rework to the 
printed circuit board is causing a delay of 4 to 6 weeks. The prototype has 
been operating, and Bally Basic programs have been |oaded into Extended 
Basic and since screen memory is no longer utilized, the programs operate 
much faster. The Introductory Prices, stated on page Gli, are stil! in 
effect except for System One, which is now $225 (and ineludes the Extended 


Basic). 

SUB HUNT — YOU! COMMAND THE DESTROYER IN AN ATTEMPT To LOCATE 
AND DESTROY THE ENEMY SUBMARINE FLEET. FIRST, YOU WILL BE ASKED 
WHAT THE WINNING SCORE SHOULD BE, ENTER THIS THROUGH THE KEYBOARD, 
THIS IS 4 ONE PLAYER GAME AGAINST THE COMPUTER, A COMPUTER SUB 
[Is SUBMERGED SOMEWHERE ON THE GRIQZ. ON EACH TURN HE WILL EITHER 
MOVE. OR FIRE TORFEDOES. IF HE FIRES, HE MUST REVEAL HIS LOCATION. 
YOU USE THE JOYSTICK To CONTROL YOUR MOVEMENT, UF. DOWN, RIGHT. 
LEFT, OR DTAGONAL, AFTER YOU TWEEK THE TOF, A LOW BEEP IS HEARL. 
NOW COUNT “ONE SUBMARINE, TWO SUBMARINES, ETC" UNTIL A SOFTER 
BEEF IS HEARD, THIS REPRESENTS THE DISTANCE To THE SUBMARINE. 
SONAR ! ! NOW YOUR CREW FIRES DEPTH CHARGES INTO THE TWO SoUARES 
IN FRONT OF You, MOVE AGAIN. GOOD LUCK, 
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18688 
1818 
1828 
18468 
1845 
1658 
1868 
1478 
1186 
1114 
1128 
1138 
114g 
1158 
1208 
1218 
188a 
1998 
2988 
2816 
2015 
2826 
28308 
26408 
25868 
2518 
2528 
2530 
2548 
29948 
3888 
8aa9 
8619 
8015 
82008 
83098 
8348 
8358 
8480 
8418 
8698 
8700 
8785 
8718 
8728 
8738 
Svat 
8735 
B74 





3888 

SUB HUNTER 8865 
BY BOB WISEMAN 8814 
CLEAR ;GOSUB 53989 8828 
GOSUB 1880;GOSUB 23888 8838 
GOTO 28 8840 
U=C; V=D 88oa 
L=JXC1)3M=JYC1L)I3N=TROLI 8388 
IF L=@IF M=@IF N=G@GOTO 1918 8918 
NT=38 8928 
H=ABS(D-F )+ABSCC-E 3 8958 
MU="Q"; soa I=1TO SOGb Ms NEXT I 8968 
NT=4;MU="Q";NT= 8996 


FOR I=1TO Ee nee I 3888 





NT=6; &( 23 )=290; &( 28 )=@; &(21)= 
GOSUB 8958 

T=1;GOSUB 95a 

GOSUB 8204@;C=1;D=3 
GOSUB 8880 

X=H+I 

RETURN 

CX=18@bxX-48 
CY=1@bY-38 

RETURN 
&(21)=255;GOSUB 8988 
PRINT "*",;&C€21)=@ 
RETURN 


NT=@;PRINT ;PRINT ;PRINT “SUB HUNTER";PRINT 


IF €C+L<¢134+(€C+L>7 3+(D4+M<1)94+0D+M>5360TO 1998 


C=C+L; D=D+M 
X=C;Y=D;GOSUB 8388 
R=X+L3 Y=VY4M_ Bay 


IF (RCLIFORI7 FOYE LIFCYDSIGOTO 120@ | 9820 


GOSUB 832g 
X=U; Y=; GOSUB 9200 

GOSUB 8@88;GOTO 19948 

NT=10; MU="%" ;MU="%";NT=8;GOTO 1019 
RETURN 

IF RND (1@)>7GOTO 2508 

L=RND (3}=2;M=RND (3)-2 

IF L=@IF M=@GOTO 2918 

X=E+L 3 Y=F+M 


IF (X<1)4+0X7I40Y61)4CY>S5)G60TG 2aig 3518 


E=K3;F=Y¥;GOTO 2996 
H=7; I=1 

IF CXE H=1; I= reat 
Y=F- 

FOR X=ETO HSTEP I 
GOSUB 879@;NEXT xX 
NT=189; MU=99; NT=@ 
RETURN 

CX=18bC-4@ 
CY=1@bD-38 

PRINT “a"“, 3; RETURN 
GOSUB 8986; PRINT 3 
GOSUB 83952 

IF X=EIF Y=FGOTO 8448 
GOTO 8694 

S=1;GOSUB 935a8a 

E=RND €7)3F=RND (5) 
GOSUB 8290;RETURN 
GOSUB 8988 

&(23)=S8 
&C213=58; &( 28)=255;NT=1 
IF X=CIF Y=DGOTO 88a@a 
PRINT “:",;&€21)=@ 
NT=6 

&C23 )=290; &( 20)=a 
GOSUB 8280;GOTO, 889 


“, RETURN 


(S81 INPUT "ENTER # OF GAMES "G 
CLEAR ;FC=134;BC=169 


(9625 A=@; B=; S=0; T=9 
9638 FOR X=-25TO 25STEP 16 
(9646 BOX @,X,71,1,1;NEXT * 

9858 FOR X=-35TO 3S5STEP 18 

S@68 BOX X,@,1,51,1;NEXT x 
9878 C=1;D=3;E=7;F=3 

3486 GOSUB saga 

‘3166 RETURN 

9588 CxX=-75;CyY=-4g 


/98@5 &(23)=290 © 
IF SPRINT “GOOD SHOT We 
| 


|9528 IF TPRINT “YOU ARE SUNK", 

3538 CxX=-75;cy=49 

3544 A=A+S; B=B+T;S=@; T=9 

3556 PRINT “SHIP=",#2,A, SUB=",#2,B, 
9552 Cx=-75;CyY=-4@ 

3554 FOR N=1TO 1988;NEXT N 

-9556 PRINT * ae 

S566 IF ACGIF B<GRETURN 

3684 CX=-75;CyY=-49 

(9616 IF A=GPRINT “GOOD JOB CAPTAIN", 
9624 IF B=GPRINT “YOU ARE DESTROYED", 
3634 STOP 


Bob Wiseman 
118 St. Andrews Dr. 
,OH 45245 


Cincinnati, 
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1 :RETURN 3; €=9880;F=1989;H=2889; 1=7200; J=SaG0; L=3e@99; 0=9999; P=49g9 

1@ CLEAR ;BC=RND (256 );FC=BC+4; S=4; B=32767;W=58;GOSUB 19G20;:CLEAR ;GOSUB F;Q=3 
@;A=9;GOSUB H;VU=A 

15 CY=4@;PRINT “POPULATION= ",#1,A,", 80g 

29 R=G;W=W-20; IF A<SSCY=-25;PRINT “YOU LOSE! ";GOTO I 

38 PRINT “YOU HAVE ",#1,Q," MISSILES";PRINT "ENEMY HAS *, #1565," MISSILES" 5 B= 
A;FOR Z=1TO H;NEXT 2 

35 IF S=@IF V-B<1@@CY=-25;PRINT "YOU WIN";GOTO I 

4@ IF S=@CY=-25;PRINT "YOU LOSE! ";GOTO I: 

5S@ BOX @,10,168,67,2;PRINT “**#*##* ENEMY ATTACK KEBKHH" S&C 16 )=495&017)=24395 801 
8)=244; &€ 19)=245; &C 21 J=15;NT=98 

6@ &4(22)=255; &(23)=18;FOR Z=1TO H;NEXT Z;BOX G,1@,16@,67,2;GOSUB L;Y=W;FOR Z=1 
TO S;BOX @(€2),Y,1,3,3;NEXT 2 

65 Y="-1;&C16)=¥+74;FOR Z=1TO S;IF ®(Z)=@GOTO 149 Bob Weber 


74 IF PX(@C2Z),Y-1)INT=@;GOSUB O 6594 Swartout Rd. 
8@ IF Px(@(Z),Y)=G@(Z)=8;GOTO 14g Algonac, MI 48gg1 


36 BOX @(Z),Y-1,1,1,13;BOX @(Z),¥+2,1,1,2 
106 NEXT Z;IF Y<-38GOSUB P;GOTO 144 - 
116 IF TRCL)JIF R=@IF Q@>@G=Q-5;R=1;GOSUB P;N=-3@;FOR M=6TO 1@;BOx @(M),N,1,3,33N 
EAn 1 ; 
128 IF R=iGOSUB J 
134 GOTO 6S 
14@ A=@;GOSUB H;IF B-A=@CY=8;PRINT “NO LOSSES";GOTO 16a 
158 CY=@;PRINT #1,B-A,",@88 KILLED 
166 S=S-1;GOTO 15 
1906 BOX @,-42,168,3,1:;FOR G=-8@TO 79STEP 3;BOX G,-38,RND (5),3+RND (6),1;FOR N= 
L0G GMs 
1614 BOX G,-32-RND (9),1,RND €2)3,2;NEXT N3NEXT G;RETURN 
2866 GOSUB £;BOX @,5,168,75,2;CY=4@;PRINT "COUNTING POPULATION 
2619 FOR Y=-37TO -34;FOR X=-8@TO 79;IF PXCX,YJA=AFL 
2626 MU=A;NEXT X;NEXT Y;IF A>B A=B 
2938 NT=@; RETURN 
3888 FOR Z=1TO 5 
3910 A=RND (1580)-75;FOR C=1TO S;IF (@(C)=AI+CA=GIGOTO 3018 
3826 NEXT C3;@€CZ)=A;NEXT Z; RETURN 
4966 FOR Z=6TO 18 
4@1@ A=RND (1508)-75;FOR C=6TO 18;IF ®CC)=AGOTO 4019 
4420 NEXT C;@€Z)=A;NEXT Z;RETURN 
S860 N=N+1;FOR M=6TO 1@;IF PX(@(M),N)}=@GOTO Sg3a@ 
S@@5 IF JXC1)BOX @(M),N-1,1,3,33@(CM)=@(MI+IXC 1); BOX @®(M),N-1,1,3,3 
5610 BOX @(M),N+1,1,1,1;BOX @€M),N-2,1,1,2 
5626 IF N>=Y&(21)=255; &(16)=1;BOX @(M),N,9,9,13; BOX @(M,N,9,9,2;FOR D=1TO S@Q@;NE 
XT D3 &C16)=¥+74 
5@36 IF N>Y+1R=8 
5644 NEXT M;&€21)=15; RETURN 


7608 CY=4@;PRINT "ORIGINAL POP. = ",#1,U,",g999 
7418 PRINT "TOTAL LOSS = “,#1,U-A,",868";PRINT "PRESS ANY KEY TO PLAY AGA 


IN"; IF KPRUN 

84@@ &(21)=255;&(16)=@;FOR D=1TO 7 

8416 BOX @(Z),Y,D,D,1;NEXT D;BOX @(2),Y,9,9,2;FOR D=1TO FINEXT D 

8015 IF Y>-37&(22)=15; RETURN 

9488 &(21)=8; &( 22 =; &( 23 )=8; NT=1; RETURN 

18@@2 PRINT “ STRATEGIC AIR COMMAND";PRINT ;PRINT “IF LOSS OF LIVES FROM*:PRINT 
"ATTACK EXCEEDS 198,992, 

1@@18 PRINT “YOU LOSE! TO DEFEND GOTO TR(1)&(KNC1)";FOR Z=1TO LiNEXT Z;NT=1;RET 
URN ~ . ae ® Cw ESI 
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1 
ae 
3 .CIRCLES 
S .BY RON PICARDI 1168 &17)=¥3&(19)=-y¥ 
18 CLEAR 111@ IF Y>@C=c-1 
2B PRINT ;PRINT ;PRINT 1120 IF ¥<@C=C+1 
30 PRINT " ALL CIRCLES" 1138 Y=v+c 
40. PRINT 1146 LINE X,Y,@;LINE -x,-y.1 
S@ PRINT “ POP ART" 1158 RETURN 
6@ GOSUB 1922 1288 FOR A=1TO Sag 
6S FC=BC 538 GOSUB 1529 1281 NEXT A 
66 BC=15 ; S4@ Y=15;cC=5 1262 CLEAR 
78 FOR A=1TO 152 558 GOSUB 1492 1283 &(22)=255 
BB X=X+1 568 GOSUB 1540 121@ X=8;Y=-4@;c=19 
98 GOSUB 1190 578 Y=21;C=6 1220 FC=RND (32)b8-2;BC= 
198 NEXT A 588 GOSUB 14828 1225 LINE X,Y, ee ee 
195 GOSUB 1999 594 GOSUB 15aa 123@ RETURN 
120 K=x+2 618 GOSUB 1428 1319 IF x>@c=c-1 
138 GOSUB 1190 628 GOSUB 15aa 1320 IF x<g@C=C+1 
148 NEXT A 638 Y=36;C=8 1338 x=x+C 
15@ GOSUB 1800 648 GOSUB 1490 1340 LINE X,Y,@;LINE -x,-y.1 
16@ FOR A=1TO 5B 658 GOSUB 1588 1358 RETURN res 
178 X=K+3 655 Y=36;C=8 1484 X=08; B=a 
189 GOSUB 1100 656 x=0;B=G 14@5 LINE X,Y,@ 
19@ NEXT A . 668 FOR A=1TO 48 1418 FOR A=1TO 49 
219 FOR A=1TO 25 68@ IF X>@C=C-1 1430 IF x<@c=c+1 
27 X=K46 | 698 IF xX<@C=C+1 1448 IF Y>gB=B-1 
224 GOSUB i1B8 72@ IF Y>@B=B-1 1458 IF Y<@B=B+1 
248 NEXT A 79S X=xX+c 1468 X=K+C:Y=7+B 
268 NEXT A 715 Y=Y+B 148@ LINE X, Y,1 
278 GOSUB 1248 T2G" CINE Say, f 14986 NEXT A 
29G FOR A=1TO 9a 736 &(17)=Kb3;&(18)=Yb3 
298 Y=Y+1 748 NEXT A 
398 GOSUB 13a 758 GOSUB 159a : . 
310 NEXT A 768 CLEAR ;&(22)=255 aoe Matai 
329 GOSUB 1290 770 X=8; Y=32;B=0;C=19 Saginaw, MI 
390 FOR m<1T0 40 788 FOR A=1TO 370 » MI 48683 
348 Y=Y+2: 736 IF X>@c=C-1 
350 GOSUB 13a0: > 800 IF xX<@Cc=C+1 
368 NEXT A 816 IF Y>@B=B-1 
378 GOSUB 12928 820 IF Y<@B=B+1 
388 FOR A=1TO 20 836 X=X+C; Y=Y+B 
398 Y=Y+3 S40" BOK Xx, Ye, 2 
489 GOSUB 1389 858 &(17)=xXb3; &( 18)=Yb3 
418 NEXT A . 860 NEXT A 
44@ GOSUB 1990 878 GOTO 2988 1495 RETURN 
4S@ Y=3;C=2 1988 FOR A=1TO Sag 1588 FOR A=1TO Sea 
468 GOSUB 1428 1661 NEXT A 1516 NEXT A 
478 GOSUB i509 1882 CLEAR 152@ FC=RND (32)68-2;BC=RND (32)b8+2 
488 Y=6;C=3 19@3 &(22)=255 1530 RETURN 
498 GOSUB 1429 1@1@ X=-75;C=8;Y=9 2800 PRINT “ POP ART" 
SBe@ GOSUB 15289 1915 &(22)=255 2682 NT=3 
Sia Y=18;c=4 1626 LINE -75,9,@ 
S28 GOSUB 1499 1825 FC=RND (32)b8-2;BC=RND (32)b8+2 


1436 RETURN 
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MEMORY MAP - AstroVision Basic: As of the date of printing, the various 
allocations of memory space in the available 4K are as indicated below. We 
printed aesimilar map for the original Batlig Basic in Vat) 1 p.34, and 
areas obviously different are indicated by an asterisk (*). 


On Board ROM Area Se = (STS ate tee by 
BASIC ROM Area BUS? = L228 2606 - 2FFF 
Screen Memory Area 16384 - 28479 4668 - 4FFF 
Graphics/Program Area 16384 - 19983 4806 - 4E18 
Scratchpad Area 240883 - 28463 4E20 - 4FEF 
*Variables start at 29882 4E22 
*Stack Area 26258 - 24415 4F22: - - 4F BF 
*Line cript Buffer 20154 - 28257 ABBR =) Abed 
Text Array Area “24576 to -22777 ABBE - ATBC 
: i 


MACHINE CODE MYSTERY We’ve had very few machine code programs for you, 
and I believe part of the problem has been the awkward entry of values. 
The following program by AI Rathmel!l makes the machine do all the work of 
swapping pairs of hex code, converting them to decimal, and POKEing them 
into memory stots. 


i... HEX “POKER 

22. Bn ne RaTAMELL 
1@ CLEAR; INPUT “START ADDRESS pe | 
26) FPRENT #2, By. ==", 
38 FOR A = 1 TO 2; K = KP; TU = K; IF K = 112 “TU = 13;. STOP 
44 GOSUB 34 : 


SO IF A= LL J=kK x 16 This program was typed 

68 IF @&= 2K o= J + Kk directly, and therefore 

7@ NEXT Ad %CB) = kK; B=. B+ L the small *x’ means to 

8@ PRINT #6, K; GOTO 28 “multiply”. \ 


950 IF (K ¢ 48) + (K. > 78) GOTO 28 
{QB fe he > Sr? lk K <. 65 GOTO. 26 
Pignicema - tos Le oS Kalk -, 7% 
128 RETURN 


The HEX POKER program is a smal! utility routine that will store 


hexadecimal 2Z8@ Opcodes into memory one byte at atime. The starting 
address is entered in decimal (such as using 240184, the Baily Basic line 
buffer starting location - note that it is 246154 in the AstroVision Basic - 
rf. This is identified as variable “B". As each memory lacation is 


listed on the screen by this program, enter a two-digit hex code from the 
keypad. After the last byte, key in.WORDS RETURN. To run the machine code 
routine, enter CALL B where "B" was the starting address... 

Al Rathmell, 1643 Swallow Dr., Sunnyvale, CA 34887 


yo 
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EXTENDED BASIC We expact to make this new language available in two 
versions: on tape, for those of you who will have a lot of added memory; 
and on a ROM for those of you with a small added memory. To explain: The 


Extended Basic resides in SK bytes. If you have lots of memory available to 
you, then you can afford to allocate 8K of that memory exclusively for the 
storage of the Basic, and use the rest of your memory for inventing a 
program that utilizes that Basic. If. you had 24K of memory, for example, 
8K would be fanguage, and 16K could be program. You would have ta load the 
Basic every time you wanted to use it. It is the cheaper way to obtain the 
Basic. : 

If you have a.Jimited amount of memory, then you want to keep as much 
of it available for writing programs. That person can purchase the Basic 


permanently located in a ROM chip, exact!iy as the Bally Basic is now. It 
would be inside a cartridge and would fit into the axisting receptacle just 
like the Bally Basic does. The language will be the same and programs 
will run equally well in either memory system Cas long as the program 
fits). 


Here is a list of most of the new commands and features that will 

appear in the Extended Basic: 

POINT and CIRCLE 

SNAP memorizes what. is on the screen and stores it in an array. Later 
you can recall the scene. using SHOW 

NEW erases the program 

DEFAULT sets al! variables to their original values. 

ZERO sets al! variables to zero. 

DATA allows easier entry of variables 

SCROLL rolls the text up or down a specified number of lines 

Commands can be shortened (P. means PRINT) 

Conversion is available between decimal and hex and binaru 

Four colors anywhere 

Additional character font size of 3x5 

A window can be set up of any size, anywhere, within which text can be 
placed and scrolled. 


UNUSUAL SOUNDS The following program was sent by Bil! Loos, which, along 
with the list of variables, will provide some unusual sound effects. Make 
direct substitutions of the values -of XK and Y as recommended, either 
individually, or by grouping. two or more together. 


18 -. INPUT Xs; INPUT Y;-&C21)=15 4 eS Zoe Y = -224 

20 FOR A=X TO ¥ x = -223 Y = Loe 

36. S619) = fp  &Cis) =| A <= -13l Y = -160 

49 &(20) = ABSC2xA); NEXT A x = -159 ¥Y = -128 

54 FOR B = 4 TO 566; NEXT B K = -127 Y = -S6 

6@  &(18) = @ &(19) =. @; &(20) = @ x = =95 Y= -64 

78 GOTO 18 x = -63 Y= a2 
es) es Vos =i 


Bill Loos, 8599 Framewood Dr. Newburgh, IN 476368 
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Si 


PROGRAM TAPE #3 


SIDE 1 MAZE RACE & OBSTACLE COURSE - BOTH GAMES ARE LOADED AT THE SAME TIME: 
MAZE RACE IS A TWO PLAYER GAME REQUIRING EACH PLAYER TO. RACE THROUGH A MAZE WITHOUT TOUCHING A WALL. IF 
YOU TOUCH A WALL YOU LOOSE POINTS PLUS BLOW A HOLE IN IT WHICH YOUR OPPONENT CAN USE TO HIS ADVANTAGE. 


OBSTACLE COURSE IS PROBABLY OUR MOST POPULAR GAME SO FAR. IT REQUIRES A GREAT DEAL OF PRACTICE TO DEVELOP 
THE SKILL TO GUIDE A BALL THROUGH A COURSE. AFTER YOU COMPLETE THE COURSE THE FIRST TIME THE NEXT TIME 
GETS TOUGHER. THERE ARE SEVEN LEVELS PER GAME SET AND SEVEN GAMES PER SET. STARTING AT THE LEVEL ONE AND 
INCREASING EACH GAME. SO FAR NOBODY HAS MADE IT THROUGH ALL SEVEN LEVELS. BUT IF YOU DO, YOU CAN TRY THE 
INTERMEDIATE LEVELS OF PRO LEVELS. BEST OF LUCK YOU'LL NEED IT. 


SIDE 2 SPACE CHASE - USES FEW GRAPHICS, BUT GOOD SOUND EFFECTS AS YOU TRY TO GUIDE YOUR SHIP THROUGH 200 LIGHT 
YEARS TO YOUR DESTINATION. YOU MAY BE ATTACKED BY ENEMY SHIPS, RUN OUT OF FUEL,COLLIDE WITH METEORS, ETC. 
YOUR AT THE CONTROLS. WARP 1, WARP 2, WAIT FOR HELP,FIRE PHAZER OR EVASIVE ACTIONS, ITS A LONG WAY TO GO 
BUT A GOOD CAPTAIN CAN MAKE IT WITH A LITTLE HELP FROM FRIENDLY ALIEN. 


TAPES FOR SALE by WAVEMAKERS 


P.O. Box 94881 
Schaumberg, IL, 64193 


\-EVEL, Si: SCORE: SOs, GAMES 2a 


Price $7.95 plus .5@ postage 





SIDE | -MAZE RACE- OBSTACLE COURSE- ALSO FROM SIDE 1 





Complete modification kit for your Arcade - $8.80; Assembled and tested 
Kludge, $18. (extra parts needed included with both) Add $25 for new Data 


Chip - add $1 for postage and handling. Barry Ellersan 5@17 River Rd., 
Schiller Park, IL 68176 
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